home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Sky Chart / cdcbase.exe / cat / satxy.txt < prev    next >
Encoding:
Text File  |  1999-11-14  |  3.3 KB  |  77 lines
  1.       Translation en Pascal pour Delphi par Patrick Chevalley le 10 novembre 1999.
  2.       SATXY.DLL inclu les coefficients des satellites de Mars,Jupiter,Saturne et Uranus de 1997 α 2020.
  3.  
  4.       Exemple d'appel depuis Delphi :
  5.  
  6. **********************************************************************************
  7.       type double8 = array[1..8] of double;
  8.            Pdouble8 = ^double8;
  9.       Function Satxyfm(djc : double; ipla : integer; Pxx,Pyy : Pdouble8):integer; stdcall; external 'SATXY.DLL';
  10.       var i,j : integer;
  11.       xsat,ysat : double8;
  12.       jde : double;
  13.       begin
  14.          jde:=2451494.0
  15.          i:=satxyfm(jde,6,addr(xsat),addr(ysat));
  16.       end;
  17. **********************************************************************************
  18. ===========================                         ============================
  19.                               BUREAU DES LONGITUDES 
  20.  
  21.                     /pub/ephem/satel/posxy/lowprec
  22.  
  23.                                 1997, September
  24. ===========================                         ============================
  25.  
  26.  
  27. satel/posxy/lowprec
  28.  
  29.               Low precision ephemerides of the main planetary satellites:
  30.               differential positions of the satellites of Mars,
  31.               Jupiter,Saturn, Uranus, given under the form of developments
  32.               in mixed functions.
  33.  
  34.                   
  35. AUTHORS :     J.-E. Arlot, Ch. Ruatti, D.T. Vu and W. Thuillot
  36.  
  37.  
  38. ADDRESS :     Bureau des Longitudes - URA 707 
  39.               77 av. Denfert Rochereau, F-75014 PARIS
  40.               Phone: (1) 40 51 22 67  / (1) 40 51 22 65  
  41.               Fax:   (1) 46 33 28 34 
  42.               e-mail:arlot@bdl.fr, vu@bdl.fr, ruatti@bdl.fr, thuillot@bdl.fr
  43.  
  44. CONTENTS:     The files of this directory allow to compute the differential
  45.               coordinates of the main natural satellites with a precision of 
  46.               0.5 arcsec for the period 1997-2020. 
  47.  
  48.               Beware: The files of this subdirectory have to be used 
  49.               following the explanations given in the directory posxy, 
  50.               see it for further explanations.
  51.  
  52.  
  53.   seqdir.f :  This Fortran code source has to be compiled in order to allow 
  54.               you to convert the ascii sequential files mars.xxxx, jupiter.xxxx, 
  55.               saturne.xxxx, uranus.xxxx (where xxxx is the year) 
  56.               into direct access files to be used by ephang.
  57.  
  58.   diffpos.f : This Fortran program code source has to be compiled in order to 
  59.               allow you to compute the differential coordinates of the 
  60.               satellites by using the direct access files.
  61.  
  62.  
  63.   mars.xxxx     |  sequential files of coefficients for the year xxxx
  64.   jupiter.xxxx  |  (between 1997 and 2020)
  65.   saturne.xxxx  |
  66.   uranus.xxxx   |
  67.  
  68.  
  69. ================================================================================
  70. User feed-back is encouraged. Unless otherwise specified, send comments and bug 
  71. reports to:                    E-mail     : comments@bdl.fr
  72.                                Fax        : (33) 1 46 33 28 34 
  73.                                Postal mail: Bureau des longitudes
  74.                                             77 avenue Denfert Rochereau
  75.                                             F-75014 PARIS
  76. ================================================================================
  77.